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FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 

Insert a new Line into the current text buffer. 


ANS WN—"OOONOULSWN—“OVOOnou 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
MODIFIED BY: 


1-001 = Original. DJS 23-Feb-1981. This module was created by 
oxtroct ing routine EDTSSINS_LN from module EDTWF. 

1-002 - Regular! ze headers. JBS T/7-Mar-1981 

1-005 = Change index for line numbers from 10 to 15. SMB Be rh 

1-004 = Add Line number error checks and eg value. 982 
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1- - - Change the oo tL to a Hn ~{a2 Sarason 

Modify to use new 48 bit macros. is x, a 198 

1-010 - Modify to use new compare macro. oust 2 

1-011 = Count y inserted lines, and ates “— ~ aining, the screen data 
ase if we have too many. S$ 


1-012 = The counter also counts deleted {toe JBS 27-0ct-1982 


rrr reTeTSrerererererere rele Ie le rele rel eee eee eee rarerererarerere re rere rere rerere rere rere re Teele Te ee 
FHF ANNA HAIN PNP NUNININUNUDD 2 2 2 se 
w 


oe ee ee ee ee eee 
- 
+ 


NOUS WO OONOU EWI OOO 


WIN & 
NOUS WOO 
Sssssssss 
WA ty ty ty ty oy ty 4 4 4 


2 } H \- = Add parameters to SC_INSLN. SMB ata {ey 
' 1-014 = Improve cose. 8 d consistency checki 98-0 
' 1-015 = Up the number of eqs, t can be inserted 3 — at 4 BUILD HF} set. 
} 1 - Be more defensive with ~~ Re osition upd atin -Feb-1983 
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RSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD_ROUTINE 
EDTSSINS_LN; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ’; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


VAX-11 Bliss-32 V 


rity Page 
DISKSVMSMASTER: choi sre WF INSLIN.BLI;1 


’ 
Bete Se Se Seas Se Se Se Se ae Fe Se Seas Fees Se Se ee Be ae Fe ee Fe Se Se See Se Se teases te tease 


: 
| 
| 
| 
| 
| 
| 
| 
| 


CAASTERCCEDT SRCTUFINSLIN.OLIG;™ (35) 


1 
va 


eis DTK 


9 
Sep-19be 43 


16- 
1lé- 


- insert 


INSLIN = insert 


NS_UN 


EDIS8i 


2 de 


a) 
er 
£ 
~e& 
c 
Cc. 
—_—— 
ez 
ve 
a ec 
ce a 
a. c ne 
—e xz 
- —_ ee 
~s - 
22 b d-4 e 
ere St : 
ae eo @ 
oe ea ro 
ss oo Cad we 
wn -o 3 a 
~ne x " 
ow oe 3 
e.wm «es - 
“vc es o 
=? ee = ew a 
—aet ~~ Cc 2 ° 2 
emo — e - c w 
— ee —- -— Ww 
or ~ a 
wr zB rw) 
.* a oe) z v 
vow c @® = 
& c w 
-Sea cy 
- a P< 2 “ 
ae 2 ce re 
c Qo rod - 
oe eo oe 
—_ tx o —— os 
=x@w o 
ag 22 Ww = 
ro 3 *e = > 
os = v 
es ® -~- Oo v 
@ £ ews wo Cc ° 
Pd wo ea 
ee ® =— ad 
~~ ~ cw s a a o 
a —-x@e ese @® w ws c 
* 2 ew = £ ia -oa 
c “- 4 ee - « «Ww co 
- a F3 — “> w —- wee - 
” - *& z ” a2 “> oo 
‘2 _ —-@& v zu is uonWZ@ 
on oan ex a ” Zaz avo Cc 
Fe aq Baxew + 22 i tu z z x ° ¥ 
za -“ 2 vo Ww mv aw ti wore | - 
—-_ = « 3 <= oe = see ~~ wa w tt orc ~ os 
‘2 vy 2a > ww a) -$ $44 wwe Litt e = 
“ow " 6 @ > 4 = - vw ji Iw 2 =) “aun - © 3 
z ~ ae ro Ss = i &, seee now = om, eee io. a s e a = 
a 2. Se SaAwssadsaos 2 Saaasaaan a * = 
eo == eo.e ¢ = AMAAARHAAASA A oD oh oh A Gd x i ot 
- oz “ue a a ee ee ee eee eee > Hw $s 
a c3c a20a 2 §&§ SGBEa00G0G0GQ0G0G880RQ - BAaceaaaanHd - 
ie) — =e Ue et el el el el el ee mee er er er er rerrerreyrey o z «= 
. ee = —~ ww C=) [vey —_— w 
ww on 4 | — — o = 
4 ~ F4 vw ww = = ws “ ca 
~ ve) 
= 2 2 5 s 6S 
by *- - oe a « ” 4 
Zz * a 
2: i Senn ee et 
SF HONING 
GOK UMINS . SOK VMTN ta ot Aa O-VUM TNO DOCK OMIN 
DLA RAR eeeeea SDE DOOD OOF DP DODO SOS OOO See ee RIN 
D. OD 0000.0000004 >< DOODOOVOS eee eee ee eet ae at at at at et et et et et ee ee 


EO) QO QQ Qn OOOO OOOO OOOO OOOOCOOCOOCOOOOCOOOOOO OOOO Oooo OG 


SSSISSSESES SHO SE PORTAL LRARRITIOS SOIR SS SSS L SS SRT OOES 
Coat aul aa alt antl autem ont wwe ENON 


LOL LL LL EF LEE OLOPQCECOSCE ECE LE ECO 


ll Nl NDR Bek ek te te Rie te eh eh ek eee ee ee ed oe OO Oe 2 


vourooo  Y OEDISSING ENN = = 8 nee kins ise 3eb-19ke 95:95:9 — DISKSVMERASTERSCEOT SRCSWFINSLIN.BLICS?” (33 7 


aR: CHSPTR_GTR (.EDTSSA_SEL_POS, .EDTSSA_LN_PTR) 


"BEGIN, SEL_POS = MINA (EDTS$T_LN ay CHSPLUS (.EDTSSA_SEL_POS, -.REC_LEN)); 
1 ee (NOMBER_ONE, EDTS$$L_SEL_CN) 


3; 3 sur mS 

4 , ie NOVALUE, 

3 : 4 bu i | 
3 bic nee TINSUN : *ueuut | 
4 EXTE | 
; 16 4 DTSSL_MAX_ UN BLOCK, ! Maximum Lines EDT can handle 
+ 1646 DTSSA-CUR ure : RE TeCB_BLOCK, : current text buffer control block 
: 165 735 DTSSA_wKk BUK i i Pointer to current bucket 
; 168 REF BCOCK CwF_BUKT_SIZE, BYTE) FIELD (wFB FieL DS) 

; 1 DT $6_wx_¢ URBUK, 1 taaber of the current bucket 
7 DT “ic NSCNT : The count of sneer tog Lines | 
3 16 7 DTSSA_WK_LN : REF tine eaLock, ! Pointer to current Line 
3 1 74 DTS$G_WK RODFD, ! Flag indicating bucket was modified 

3 i 74 DTSSL_LNDO : LNOVECTOR (7% 4], 

3 4% § 74 db te POS, ! Select position 

3; 7 74 get SA_LN_PTR, ! Pointer into line buffer 

; (176 166 DIS$T_ “ter BUF, ! The Line buffer 

3 79 7465 epi set eC t -tN ! Select Line 

3 A | 74 DT$$G_SCR ! The number of text Lines on the screen 

Bee 74 EDTSS$G_REC cs | rlewtan * Number of records inserted and deleted since the last screen update 

r 178 oe EDTS$G_SCR REBUILDS ! 1 = the screen data structures must be rebuilt from the wort file 

; 180 ? MESSAGES ((MAXLINVAL, INSMEM)); | 
9 ? OCAL 

e % 5 7 5 OLD_NEXT, 

4 754 INSLEN; | 
; 185 755 

3 : , § es ASSERT (.REC_LEN GEQ 0); 

; : 4 8 Make sure we aren't exceeding the maximum number of Lines allowed. 

<3 760 2 

3 13) et — (EDTSSA_CUR_BUF CTBCB_LINE_COUNT], EDTSSL_MAX_LINES) GEQ 0) 

; 198 76 BEGIN 

: 4196 764 EDTSSFMT_MSG (EDTS_MAXLINVAL); 

H 122 oo? RETURN (0); 

: 199 ree : 

3 138 76 '¢ 

. 2 4 ! Fix up select range if necessary. 

; 7) 5 | 
: § 77 CASE EDTSSSEL_RNGPOS () FROM -1 TO 1 OF 

; Ah SET 
: 505 775 (0) : ! Current Line is select Line | 
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i If we are not ao to rebuild the screen data base from the work file, 
en a 


tell” the scre ter that we have inserted a Line. 


41 } 
1 (1) : ' Current Line is before select Line 
} ADDLINE (NUMBER_ONE, EDTSSL_SEL_LN); 
1 {-1] : ' Current Line is after select Line, or no select 
1 _— 
| 
END; | 
§ COUTRANGE} : 
ASSERT (0); 
4G TES; 
5 5 
$ i* 


IF _( NOT .EDTS$G_SCR_REBUILD) 
HEN 


BEGIN 
EDTS$$G_RECS_INSERTED = .EDTS$G_RECS_INSERTED + 1; 


5 
IF (.EDTS$G_RECS_INSERTED GTR (.EDTS$G_SCR_LNS*2)) 
ip EDT$$G_SCR_REBUILD = 1 
4 EDTSSSC_INSLN (.REC_ADDR, .REC_LEN); 
4 END; 
4 
44 '¢ 
45 
4 ADDL INE (NUMBER _ONE EDTSSA aur BUF CTBCB LINE COUNT) 
6 EDT CUR_BUF CTBCB_CHAR DTS$$K_CUR Bul Crate CHAR_COUNT) + .REC_LEN; 


Oe (NOMBER_ Of<E “ptSsA tu CUR BUF TBC Cur CIN 
Drs 


e WK_LN = CHSPTR (.EDTSSA_Qk_BUK, EBTSSR-CU UR “BUF CTBCB_LINE_ADDR}) ; 

; Compute the Length of the Line to be inserted, including the Line number information. 
16 INS_LEN = .REC_LEN + LIN_FIXED_SIZE + 1; 

; Will it fit in this bucket? 


Begg HO teA CWFB_END) + .INS_LEN) GTRU WF_BUKT_SIZE) 


Update the various counters for this text buffer. 
| 
| 
| 
'¢ 


! If we are at the beginning of a bucket and it is not the 
first bucket, then check out the previous bucket. 


If t. EDTSSA_ CUR_BUF CTBCB_LINE Ap) ab WFB_FIXED_SIZE) AND ! 
(,EDTSSA_WK_BUK CWFB_PREV_BOKT) NEQ 0)) 


EN 
BEGIN 
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Read the previous bucket and position to it's end. 


DTSSwF ty te FS Abe ro - opus CuFB peey ey BUKT) 
DTsSA -FUR-B pur prete LINE ESTs ux BK “wre. END); 
TBCB_CUR_ Bo : * EDTS8G__ Ox_Cur 

or 
'¢ 
' if it tb doesn't fit, then opi te the bucket. Note that 
i the while ioop is hers because may not fit after ene first 
' split. Im this case the second eels is guaranteed to create 
@ new bucket and the Line must f 


WHILE ((EDTSSA_WKBUK CWFB_END] + .INS_LEN) GTRU WF_BUKT_SIZE) DO 


DONA NES Vt OOOO fut" 


if ( NOT EDTSSWF_SPLTBUK ()) 
HEN 


BEGIN 
EDTSSFMT_MSG (EDTS_INSMEM); 
RETURN (0); 


PUNE Wn —C 


'¢ 
_Make a hole for the Line to be inserted. 


EDTSSA_WK_LN = CHSPTR (.EDTSSA_WK_BUK, .EDTSSA_CUR BUF CTBCB_LINE ADDR)); 
EDTSSCPY MEM (. 1 Noes wk _BuK COFB- ENDS = -EDTSSA_ cOR_BuF CTBCB_LINE ADDR, : 


$A_WK 
* CHSPLUS~(. Neb Tésa_ WK_LN, .INS_LEN)); 
; Update the end of bucket field to reflect new size. 
- EDTSSA_WK_BUK CWFB_END] = .EDTSSA_WK_BUK CWFB_END] + .INS_LEN; 
; And move the Line into the bucket buffer. 


EDTSSA_WK_LN CLIN_LENGTH) = .REC_L 
me CHSWCHAR T.REC_LER, EDTSSCPY_MER™ ee Ric LEN, .REC_ADDR, EDTSSA_WK_LN CLIN_TEXT])); 


Update the record pointer 
z EDTSSA_CUR_BUF CTBCB_LINE_ADDR] = .EDTSSA_CUR_BUF CTBCB_LINE_ADDR] + .INS_LEN; 
Set the “modified” flag, and bump the count of inserted Lines. 


EDTS$$G_WK_MODFD = 1; 
ADDLINE (RUMBER _ONE® EDTSSL_WK_INSCNT); 


: Now make sure we are positioned correctly. 
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IF (.EDTS$A_CUR_BUF CTBCB_LINE_ADOR] GEQ .EDTS$A_WK_BUK (WFB_ENDJ) 
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EDTSSWF _MAKECUR 


RNGPOS 
TNSiN, Ep EDTSSL_MAX_LINES 


DTS$$A_wWKk_BUK 


N, SO TS$6 WK _MODFD 
net tte POs 


RO 


; THEN 
3 If (-EDTSSA_WK_BUK CUFB_NEXT_BUKT NEO 0) 
; UR (.EDTSSA_WK_BUK CWFB_NEXT_BUKT)); 
3 tle Cur sO TBCB_LINE ABD :. = WEB FIXED ettte 
; ; DISSAL Cur-BuF CTBCB “EUR BUKTS = EDTS$G UK- CURBUK; 
3 EDTSSA DISSA We stn = CHSPTR (.EDTSSA_WK_BUK, .EDTSSA_CUR_BUF CTBCB_LINE_ADDR)); 
3 ENDS ! of routine EDTSSINS_LN 
-TITLE EDT 
-IDENT \v04 
.EXTRN EDTSSFMT_MSG 
“EXTRN EDTSS$WF_SPLTBUK 
eEXTRN EDTSSSEC 
-EXTRN EDTSSSC 
-EXTRN EDTSSA_C 
«EXTRN EDTS$$G_WwK_CU 
-EXTRN EDTS$L UK INSCN 
XTRN EDTSSA_WK 
-EXTRN EDTSSL~ 
-EXTRN EDTSSA-LN_PTR, EDTSST 
-EXTRN EDTSSL—S 
-EXTRN EDTS$G_RECS 
~EXTRN EDT$$G_SCR_REBU 
XTRN EDTS_MAX 
-EXTRN EDTSSINTER 
-PSECT _EDTSCODE, mount. SHR, 
OFFC 00000 .ENTRY EDTSS1 sin 
58 000000006 00 MOVAB EDTS$$A_CUR R BUF. R11 
A 0 Ag poy 1 LEA, 
000000006 00 8 CALL mo, EDTSSINTER_ERR 
50 1 ADDLS = #24, DTS$A_ CUR_BUF , 
1 sooseogre 0 MOVZWL nigh 
1 A CMPW Ss 4 (ROS, 
of BLSSU 2$ 
1 BNEQ 4$ 
3} 000000006 MOVL LOW.2, R1 
1 CMPL (ROT, RI 
BGEQU 3$ 
50 1 MNEGL #1, RO 
9 5$ 
4 rs 
a 
#1, RO 
9 6$ 


EC _LN, ED DT$$G_ “cae otNS 
INSERTED 


é 

C 

CTAVACS TED TS. INSMEM 
ER_ERR 


PIC.2 
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PUSHL # 5S Fe, 0764 
CALLS Ro, Tre 0772 
CASEL RO, @-1, # 
WORD 7$,- 
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Vou~000 EDTSSING EN = insert a new Line 


1 
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he 
EDTSSINTER_ERR 
TSSA_SEL_POS, R 
135a7 


D 0 
0, ED LN_PTR 
BLEGY 11 
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T R R 
S8p RECS INSERTED” RO 


EDT$$G_SCR_REBUILD 
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DR 
TSS$SC_INSLN 
-CUR_BUF, RO 


oA 
000000006 


: 
56 8 

52 Hy 4 
00000200 F 


_BUK, R1 
EDT$$A_WK_LN 
iNS_LEN 

NS_CEN, R2 


000000006 
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vou-000 DISSINS_LN = insert a new Line 


04 A 000000006 
000000006 00 000000006 39 


1 
1 
00000200 = BF ot 143 CMPL 
14A BLEQ 
000000006 5 F 1 f CALL 
000000006 BD Push 
sermon Sf ois Baw 
3 000000006 4 ! 18$: nove 
000000006 98 ; C 1 ADDL 
06 A? C 1 SUBL 
58 000000006 8g 1 MOVL 
6648 6 1 move 
06 =A 189 ADOL 
68 1 MOVB 
07 «AB 04 es : aves 
§° C 198 ADDL2 
000000006 Dd 19 MOVL 
000000006 ? 1A INCL 
1A BNEQ 
000000006 \~ INCW 
046 A? ° 181 19$: CMPL 
9 189 BLSS 
02 if 18 TSTW 
1BA BEQL 
02 3C 0018 MOVZ 
000000006 09 i¢ ig 
D 1CA MOVL 
8 1¢ 
0 10 
C 1D 
44 1€4 
4 QO1E7 
D4 OO1E8 
04 OO1EA 


491 bytes, Routine Base: 


o9 


; Routine Size: _EDTSCODE + 0000 


10 1 
11 1 «!<BLF/PAGE> 


Sep-1986 18:95: 
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DISKSVMSMASTER:CEDT.SRCJWFINSLIN.BLI 


° #512 
H , EDTSSWF_SPLTBUK 
arbrs INSMER 
#1, EDTSSFMT_MSG 
21$ 
A"CUR BUF, RO 

5 EDTS$aUK_LN 
(R7), RO 
WL, RB 
),~ CINS_LEN)CR8I 
P 4(R7) 
gC ADDR, 7(R8) 
§ 


af 
a- 1 
a 2» 
£2 
= 

oo 

~~ 

i=) 


), =(SP) 
STSSWF_MAKECUR 

FSSA, CUR_BUF RO 

f$$G_WK_CURBUK, 4(RO) 

TS$A-CUR BUF , 

0), EDTSSA_WK_BUK, EDTSSA_WK_LN 


2zoMm Sm Bron — Ze 7 Bs ww - een 


Page 


31 


conatlet 


de ae 


ee 
44 
5 


-EDTSCODE 


File 


$255$DUA 
$255$DUA 


St LES / MCR OET FELD. BNET EAL. OPT IRE EE) /UDTRACESACE AL, £84. 1 S057 ERS. IN/CRL=OR.IS 10 IMSL IM MSRC$:WF INSLIN.BLI/UPDATE=(ENHS: WF IN 


s/CPU M 
se 


38: 


Elapsed Time: 
Lexenes/CPU-Nin: 1 


9 
EDISSINS tA” = Ineere S neu ting ies Be13be 15:95:84 — DLSKSUMGHASTERSCEDT SRCSWFINSLIN.BLIe 
O31 § } END ! of module EDTSWFINSLIN 
914 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
491 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
quansese FyGhOLs eceenees Pages Processing 
Total Loaded Percent Mapped Time 
EDT. SRCJEDT.L32;1 377 51 13 40 00:00.2 
EDT. SRCJIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 


e + 0 data bytes 


491 
6: 
i 


866 


189 pages 


ion. Complete 
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